home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00214_Script_popUpparamcharts < prev    next >
Text File  |  1999-03-07  |  1KB  |  57 lines
  1. property thePopLocv, popSpritev, popNamev, mySpritev, faraway, fieldObjv
  2. global  popbgSpritev
  3.  
  4. on new me
  5.   set mySpritev = the spriteNum of me
  6.   set popSpritev = mySpritev + 1
  7.   set popbgSpritev = mySpritev - 3
  8.   set right = the right of sprite (mySpritev - 2)
  9.   set top = the top of sprite (mySpritev -2)
  10.   set thePopLocv = point(right, top)
  11.   set popNamev = "param list"
  12.   
  13.   puppetSprite popSpritev, true  
  14.   set faraway = point(-1000, -1000)
  15.   set the loc of sprite popSpritev = faraway
  16.   
  17.   return me
  18. end
  19.  
  20. on register me, theObj
  21.   set fieldObjv = theObj
  22. end 
  23.  
  24.  
  25. on mouseDown me
  26.   set the member of sprite popSpritev = member popNamev
  27.   set the loc of sprite popSpritev = thePopLocv
  28.   set the member of sprite popbgSpritev = member popNamev
  29.   set the loc of sprite popbgSpritev = thePopLocv
  30.   -- put "popped - " & thepoplocv
  31.   updateStage
  32.   repeat while the stillDown
  33.     checkIfInside fieldObjv
  34.   end repeat
  35.   
  36.   
  37.   set name = getPlaneNamev(fieldObjv)
  38.   if name = "" then 
  39.     nothing
  40.   else
  41.     set the text of member "current param" = name
  42.     setupchart
  43.     --    disSpecs name
  44.   end if
  45.   
  46.   
  47.   set the loc of sprite popSpritev = faraway
  48.   set the loc of sprite popbgSpritev = faraway
  49.   
  50.   updateStage
  51. end
  52.  
  53. on mouseUp me
  54.   
  55.   nothing
  56. end 
  57.